home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / viewmrg.zip / RBBSSUB1.MRG < prev    next >
Text File  |  1988-10-25  |  18KB  |  541 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB1.BAS to produce D:\LITE\RBBSSUB1.OLD
  3. * RBBSSUB1.BAS:  Date 10-2-1988  Size 52864 bytes
  4. * ------------[ Created 10-25-1988 20:16:19 ]------------
  5. * REPLACING old line(s) by new
  6. 118 INPUT #2, TURN.PRINTER.OFF,_    ' Turn printer off each recycle
  7.               DIRECTORY.PATH$, _    ' Where dir files are stored
  8.               MIN.SEC.TO.VIEW, _
  9.               LIMIT.SEARCH.TO.FMS, _
  10.               DEFAULT.CATEGORY.CODE$, _
  11.               DIR.CATEGORY.FILE$, _
  12.               NEW.FILES.CHECK, _
  13.               MAX.DESC.LEN, _
  14.               SHOW.SECTION, _
  15.               COMMANDS.IN.PROMPT, _
  16.               NEWUSER.SETS.DEFAULTS, _
  17.               HELP.PATH$, _
  18.               HELP.EXTENSION$, _
  19.               MAIN.COMMANDS$, _
  20.               FILE.COMMANDS$, _
  21.               UTIL.COMMANDS$, _
  22.               GLOBAL.COMMANDS$, _
  23.               SYSOP.COMMANDS$
  24.     INPUT #2, RECYCLE.WAIT, _
  25.               OPT.SEC(39), _       ' SECURITY FOR LIBRARY COMMANDS 1
  26.               OPT.SEC(40), _
  27.               OPT.SEC(41), _
  28.               OPT.SEC(42), _
  29.               OPT.SEC(43), _
  30.               OPT.SEC(44), _
  31.               OPT.SEC(45), _       ' LIBRARY COMMANDS 7
  32.               LIBRARY.DRIVE$, _
  33.               LIBRARY.DIRECTORY.PATH$, _
  34.               LIBRARY.DIRECTORY.EXTENTION$, _
  35.               LIBRARY.WORK.DISK.PATH$, _
  36.               LIBRARY.MAX.DISK, _
  37.               LIBRARY.MAX.DIRECTORY, _
  38.               LIBRARY.MAX.SUBDIR, _
  39.               LIBRARY.SUBDIR.PREFIX$, _
  40.               LIBRARY.ARCHIVE.PATH$, _
  41.               LIBRARY.ARCHIVE.PROGRAM$, _
  42.               LIBRARY.COMMANDS$
  43. '
  44. ' *****  ESTABLISH COMMUNICATION PORT REGISTERS AND COMMANDS   ****
  45. ' *****     GET DOS SUB-DIRECTORY RBBS-PC OPTIONS              ****
  46. '
  47.     INPUT #2, UPLOAD.PATH$, _              ' Where upl dir goes
  48.               MAIN.FMS.DIRECTORY$, _       ' Shared dir in FMS
  49.               ANS.MENU$, _
  50.               REQUIRED.QUESTIONNAIRE$,_
  51.               REMEMBER.NEW.USERS,_
  52.               SURVIVE.NOUSER.ROOM,_
  53.               PROMPT.HASH$,_
  54.               START.HASH,_
  55.               LEN.HASH,_
  56.               PROMPT.INDIV$,_
  57.               START.INDIV,_
  58.               LEN.INDIV
  59.     INPUT #2, BYPASS.MSGS, _
  60.               MUSIC, _
  61.               RESTRICT.BY.DATE, _
  62.               DAYS.TO.WARN, _
  63.               DAYS.IN.REGISTRATION.PERIOD, _
  64.               CALLBACK.VERIFICATION, _
  65.               RESTRICT.VALID.CMDS, _
  66.               NEW.USER.DEFAULT.MODE, _
  67.               NEW.USER.LINE.FEEDS, _
  68. * ------[ first line different ]------
  69.               ARKVIEW.PATH$, _            'VIEWARC info comes from CONFIG.EXE
  70.               NEW.USER.BELL, _
  71.               NEW.USER.CASE, _
  72.               NEW.USER.MARGINS, _
  73.               WRAP.CALLERS.FILE$, _
  74.               REDIRECT.IO.METHOD, _
  75.               GO.TO.SHELL, _
  76.               HALT.ON.ERROR, _
  77.               NEW.PUBLIC.MSGS.SECURITY, _
  78.               NEW.PRIVATE.MSGS.SECURITY, _
  79.               SECURITY.NEEDED.TO.CHANGE.MSGS, _
  80.               SL.CATEGORIZE.UPLOADS, _
  81.               BAUDOT, _
  82.               TIME.TO.DROP.TO.DOS, _
  83.               EXPIRED.SECURITY, _
  84.               DTR.DROP.DELAY, _
  85.               ASK.IDENTITY, _
  86.               USE.EXTERNAL.XMODEM, _
  87.               BUFFER.SIZE, _
  88.               MLCOM, _
  89.               SHOOT.YOURSELF, _
  90.               F7.MESSAGE$, _
  91.               NEW.USER.DEFAULT.PROTOCOL$, _
  92.               NEW.USER.GRAPHICS$, _
  93.               NET.MAIL$, _
  94.               MASTER.DIRECTORY.NAME$, _
  95.               PROTO.DEF$, _
  96.               UPCAT.HELP$, _
  97.               ALWAYS.STREW.TO$, _
  98.               LAST.NAME.PROMPT$
  99.     INPUT #2, PERSONAL.DRVPATH$, _
  100.               PERSONAL.DIR$, _
  101.               PERSONAL.BEGIN, _
  102.               PERSONAL.LEN, _
  103.               PERSONAL.PROTOCOL$, _
  104.               PERSONAL.CONCAT , _
  105.               PRIVATE.READ.SEC, _
  106.               PUBLIC.READ.SEC, _
  107.               SEC.CHANGE.MSG, _
  108.               KEEP.INIT.BAUD, _
  109.               MAIN.PUI$, _
  110.               DEFAULT.ECHOER$, _
  111.               HOST.ECHO.ON$, _
  112.               HOST.ECHO.OFF$, _
  113.               SWITCH.BACK, _
  114.               DEFAULT.LINE.ACK$, _
  115.               ALTDIR.EXTENSION$, _
  116.               DIRECTORY.PREFIX$
  117.     IF CONFERENCE.MODE THEN _
  118.        INPUT #2, DF, _
  119.                  DF, _
  120.                  DF _
  121.     ELSE INPUT #2, DF,_
  122.                    MODEM.INIT.WAIT.TIME, _
  123.                    MODEM.COMMAND.DELAY.TIME
  124.     INPUT #2, TURBO.RBBS, _
  125.               SUBDIR.COUNT, _
  126.               DF, _
  127.               UPLOAD.TO.SUBDIR, _
  128.               DF, _
  129.               UPLOAD.SUBDIR$, _
  130.               MIN.OLDCALLER.BAUD, _
  131.               USE.EXTERNAL.YMODEM, _
  132.               DISKFULL.GO.OFFLINE, _
  133.               EXTENDED.LOGGING
  134.      IF CONFERENCE.MODE THEN _
  135.         INPUT #2, DF$, _
  136.                   DF$, _
  137.                   DF$, _
  138.                   DF$ _
  139.      ELSE INPUT #2, MODEM.RESET.COMMAND$, _
  140.                     MODEM.COUNT.RINGS.COMMAND$, _
  141.                     MODEM.ANSWER.COMMAND$, _
  142.                     MODEM.GO.OFFHOOK.COMMAND$
  143.      INPUT #2,DISK.FOR.DOS$, _
  144.               DUMB.MODEM, _
  145.               COMMENTS.AS.MESSAGES
  146.      IF CONFERENCE.MODE THEN _
  147.         INPUT #2, DF, _
  148.                   DF, _
  149.                   DF, _
  150.                   DF, _
  151.                   DF, _
  152.                   DF _
  153.      ELSE INPUT #2, LSB,_
  154.                     MSB,_
  155.                     LINE.CONTROL.REGISTER,_
  156.                     MODEM.CONTROL.REGISTER,_
  157.                     LINE.STATUS.REGISTER,_
  158.                     MODEM.STATUS.REGISTER
  159.      INPUT #2,KEEP.TIME.CREDITS, _
  160.               XON.XOFF, _
  161.               ALLOW.CALLER.TURBO, _
  162.               USE.DEVICE.DRIVER$, _
  163.               PRELOG$, _
  164.               NEW.USER.QUESTIONNAIRE$, _
  165.               EPILOG$, _
  166.               REGISTRATION.PROGRAM$, _
  167.               QUES.PATH$, _
  168.               USER.LOCATION$, _
  169.               DF$, _
  170.               DF$, _
  171.               DF$, _
  172.               ENFORCE.UPLOAD.DOWNLOAD.RATIOS, _
  173.               SIZE.OF.STACK, _
  174.               SECURITY.EXEMPT.FROM.EPILOG, _
  175.               USE.BASIC.WRITES, _
  176.               DOSANSI, _
  177.               ESCAPE.INSECURE, _
  178.               USE.DIR.ORDER, _
  179.               ADD.DIR.SECURITY, _
  180.               MAX.EXTENDED.LINES, _
  181.               ORIG.COMMANDS$
  182.      INPUT #2,LOGON.MAIL.LEVEL$, _
  183.               MACRO.DRVPATH$, _
  184.               MACRO.EXTENSION$, _
  185.               EMPHASIZE.ON.DEF$, _
  186.               EMPHASIZE.OFF.DEF$, _
  187.               FG.1.DEF$, _
  188.               FG.2.DEF$, _
  189.               FG.3.DEF$, _
  190.               FG.4.DEF$, _
  191.               SECVIO.HLP$, _
  192.               FOSSIL, _
  193.               MAX.CARRIER.WAIT, _
  194.               DF, _
  195.               SMART.TEXT, _
  196.               TIME.LOCK, _
  197.               WRITE.BUF.DEF, _
  198.               DF, _
  199.               DF, _
  200.               DF, _
  201.               AUTOPAGE.DEF$
  202.      IF EC > 0 THEN _
  203.         EXIT SUB
  204.      CALL EDITDEF
  205.      END SUB
  206. ' $SUBTITLE: 'OPENCOM - subroutine to open the communications port'
  207. ' $PAGE
  208. '
  209. '  SUBROUTINE NAME    -- OPENCOM
  210. '
  211. '  INPUT PARAMETERS   --     PARAMETER                    MEANING
  212. '                       BAUD.RATE$                 BAUD TO OPEN MODEM
  213. '                       PARITY$                    PARITY TO OPEN MODEM
  214. '
  215. '  OUTPUT PARAMETERS -- BAUD.TEST                  BAUD RATE TO SET RS232 AT
  216. '
  217. '  SUBROUTINE PURPOSE -- TO OPEN THE COMMUNICATIONS PORT.
  218. '
  219.       SUB OPENCOM(BAUD.RATE$,PARITY$) STATIC
  220.       ON ERROR GOTO 65000
  221. * REPLACING old line(s) by new
  222. 59660 SUB PUTWORK (STRNG$,REC.NUM,REC.LEN) STATIC
  223.       ON ERROR GOTO 65000
  224.       FIELD #2,REC.LEN AS UPLOAD.RECORD$
  225.       LSET UPLOAD.RECORD$ = STRNG$
  226.       REC.NUM = REC.NUM + 1
  227.       PUT #2,REC.NUM
  228.       END SUB
  229. * ------[ first line different ]------
  230. ' 
  231. '
  232. ' $SUBTITLE: 'VIEWTXT - Subroutine to display ASCII file from ARC file'
  233. ' $PAGE
  234. '
  235.   SUB VIEWTXT STATIC
  236.   ON ERROR GOTO 65000
  237. * INSERTING new line(s)
  238. 60148 SUBROUTINE.PARAMETER = 1
  239.       CALL SKIPLINE (1)
  240.       A$ = "Would you like to view an ASCII file from this ARC (Y/[N])"  'DMOD1
  241.       CALL TGET
  242.        IF NOT YES THEN _
  243.        EXIT SUB 
  244. 60149  A$ = "What file(s) to view, [ENTER] quits"                       'DMOD1
  245.      CALL TGET
  246.        B = 1                                                            'DMOD1
  247.        IF Q = 0 THEN _                                                  'DMOD1
  248.           EXIT SUB                                                      'DMOD1
  249.        LAST.ARC = Q                                                     'DMOD1
  250.        FIRST.ARC = B                                                    'DMOD1
  251.        FOR ARC.INDEX = FIRST.ARC TO LAST.ARC                            'DMOD1
  252.  Z$ = B$(ARC.INDEX)                                                     'DMOD1
  253.       CALL ALLCAPS (Z$)  
  254.       CALL PETER2                                                       'PEMOD1
  255.      IF OK = FALSE THEN 60149                                           'PEMOD1
  256.       CALL BRKFNAME (Z$,DRV$,PREFIX$,EXT$,FALSE)                        'DMOD1
  257.  IF EXT$ = "ARC" OR EXT$ = "COM" OR EXT$ = "EXE" OR EXT$ = "BAS" OR _   'DMOD1
  258.          EXT$ = "BIN" OR EXT$ = "LIB" OR EXT$ = "OBJ" THEN _            'DMOD1
  259.          CALL QTPUT ("Sorry, only ASCII files can be viewed",1) :_      'DMOD1
  260.          GOTO 60149                                                     'DMOD1
  261.       CALL QTPUT ("Please stand by while I extract that file....",1)    'DMOD1
  262.       SHOWME$ = "PKXARC -R " + FILE.NAME$ + " " + Z$ + " "+ARKVIEW.PATH$'PEMOD1
  263.       SHELL SHOWME$                                                     'PEMOD1
  264.       Z$ = ARKVIEW.PATH$ +"\"+ Z$     'Added \ to fix error 63
  265.       TEMP$ = Z$                                                        'PEMOD1
  266.       CALL BUFFILE (Z$,X)                                   '10/09/88.fix
  267.    CALL KILLWORK(TEMP$)   'get rid of the files that were xtracted 10/09/88
  268.        NEXT                                                             'DMOD1
  269. 60152 END SUB
  270. '
  271. '*******************************
  272. '*  Subroutine for Viewarc txt *
  273. '*******************************
  274. ' SUBTITLE: 'PETER2
  275. ' $PAGE
  276.   SUB PETER2 STATIC
  277.   OK = TRUE
  278.   IF INSTR(Z$,"*") OR INSTR(Z$,"?") THEN _
  279.   OK = FALSE : _
  280.   CALL QTPUT ("Sorry Widcars NOT allowed !!",1)
  281.    END SUB
  282. '******************** INSERTED DLVIEWARC HERE ******************
  283. '
  284. ' $SUBTITLE: 'DLVIEWARC - Subroutine to  DL a file from ARC file'
  285. ' $PAGE
  286. '
  287.   SUB DLVIEWARC STATIC
  288.   ON ERROR GOTO 65000
  289. 60168 DLARC = 0
  290.       SUBROUTINE.PARAMETER = 1
  291.       CALL SKIPLINE (1)
  292.       A$ = "Would you like to DOWNLOAD a file from this ARC (Y/[N])"  'DMOD1
  293.       CALL TGET
  294.        IF NOT YES THEN _
  295.        EXIT SUB 
  296. 60169  DLARC=1
  297.   CALL QTPUT(FILE.NAME.HOLD$ + " Contains the following Files",1)
  298.    CALL VIEWARC
  299.    SUBROUTINE.PARAMETER = 1
  300.    CALL SKIPLINE (1)
  301.    A$ = "What file(s) to download, [ENTER] quits"                      'DMOD1
  302.     CALL TGET
  303.       B = 1                                                            'DMOD1
  304.       IF Q = 0 THEN _                                                  'DMOD1
  305.        EXIT SUB                                                        'DMOD1
  306.        LAST.ARC = Q                                                    'DMOD1
  307.        FIRST.ARC = B                                                   'DMOD1
  308.        FOR ARC.INDEX = FIRST.ARC TO LAST.ARC                           'DMOD1
  309.   Z$ = B$(ARC.INDEX)                                                   'DMOD1
  310.      CALL ALLCAPS (Z$)  
  311.      CALL PETER2                                                       'PEMOD1
  312.      IF OK = FALSE THEN 60169                                           'PEMOD1
  313.      CALL BRKFNAME (Z$,DRV$,PREFIX$,EXT$,FALSE)                        'DMOD1
  314.      CALL QTPUT ("Please stand by while I extract that file....",1)    'DMOD1
  315.      SHOWME$ = "PKXARC -R " + FILE.NAME$ + " " + Z$ + " "+ARKVIEW.PATH$'PEMOD1
  316.      SHELL SHOWME$
  317.      IF DLARC = 1 THEN _
  318.     CALL QTPUT(Z$+" Is now  Extracted ...",2)
  319.   NEXT
  320. CALL QTPUT ("One Moment while I ARC the file for you........",1)
  321. '
  322. '********** ARC all files in the ARKVIEW.PATH$ into VIEWARC.ARC **********
  323. '
  324.   SHELL "PKARC A " + ARKVIEW.PATH$ + "\VIEW.ARC " + ARKVIEW.PATH$ + "\*.*"
  325. '
  326. '********** Deletes the files that were just ARCED into VIEWARC.ARC **********
  327. '
  328.   FOR ARC.INDEX = FIRST.ARC TO LAST.ARC
  329.       Z$ = B$(ARC.INDEX)
  330.    CALL KILLWORK (ARKVIEW.PATH$ + "\" + Z$)
  331.   NEXT ARC.INDEX
  332. '
  333. '********** Tells the caller the name of the file to download **********
  334. '
  335. CALL QTPUT (CHR$(7)+"File has been ARCHIVED ...and named... VIEW.ARC....",2)
  336. CALL QTPUT (CHR$(7)+"To Download this file You MUST enter VIEW.ARC as the file name",2)
  337. CALL DELAYIT (5)
  338.  60172 END SUB
  339. '
  340. '  $SUBTITLE: 'Error Handling for separately compiled subroutines'
  341. '  $PAGE
  342. '
  343. ' *****************************************************************************
  344. ' *  Error handling for the separately compiled subroutines of RBBS-PC        *
  345. ' *****************************************************************************
  346. '
  347. * REPLACING old line(s) by new
  348. 65000 IF DEBUG THEN _
  349.          A$ = "RBBSSUB1 DEBUG Error Trap Entry ERL=" + _
  350.               STR$(ERL) + _
  351.               " ERR=" + _
  352.               STR$(ERR) : _
  353.          IF PRINTER THEN _
  354.             CALL PRINTIT(A$) _
  355.          ELSE CALL LPRNT(A$,1)
  356.       EC = ERR
  357. '
  358. '     SETCALL
  359. '
  360.       IF ERL = 110 THEN _
  361.           RESUME NEXT
  362. '
  363. '     OPEN CONFIG FILE
  364. '
  365.        IF ERL => 117 AND ERL <= 118 THEN _
  366.           RESUME NEXT
  367. '
  368. '     OPEN COM PORT ERROR HANDLING
  369. '
  370.       IF ERL = 200 THEN _
  371.          CLS : _
  372.          CALL LPRNT("Fatal error opening " + COM.PORT$,1) : _
  373.          CALL LPRNT ("DOS ERROR=" + STR$(ERR),1) : _
  374.          STOP
  375. '
  376. '     GETCOM ERROR HANDLING
  377. '
  378.        IF ERL = 1420 AND ERR = 57 THEN _
  379.           RESUME NEXT
  380.        IF ERL = 1420 AND ERR = 69 THEN _
  381.           SUBROUTINE.PARAMETER = -1 :_
  382.           RESUME NEXT
  383. '
  384. '      OPENRESEQ ERROR HANDLING
  385. '
  386.        IF ERL = 1481 THEN _
  387.            EC = ERR : _
  388.            RESUME NEXT
  389. '
  390. '      OPENUSER ERROR HANDLING
  391. '
  392.        IF ERL = 9400 AND ERR = 75 AND SHARE.IT THEN _
  393.           CALL DELAYIT (30) : _
  394.           RESUME
  395. '
  396. '      FINDUSER ERROR HANDLING
  397. '
  398.        IF ERL = 12610 THEN _
  399.           RESUME NEXT
  400. '
  401. '     UPDTCALR ERROR HANDLING
  402. '
  403.        IF ERL = 13663 THEN _
  404.           RESUME NEXT
  405.        IF ERL = 13670 AND ERR = 61 THEN _
  406.           CALL QTPUT ("Disk Full",1) : _
  407.           IF DISKFULL.GO.OFFLINE THEN _
  408.              GOTO 65010 _
  409.           ELSE RESUME NEXT
  410. '
  411. '     PRINTER ERROR HANDLING
  412. '
  413.        IF ERL = 13674 THEN _
  414.           PRINTER = FALSE : _
  415.           RESUME
  416. '
  417. '      CHANGEDIR ERROR HANDLING
  418. '
  419.        IF ERL = 20103 THEN _
  420.           OK = FALSE : _
  421.           RESUME NEXT
  422. '
  423. '     FINDIT ERROR HANDLING
  424. '
  425.        IF ERL = 20221 THEN _
  426.           RESUME NEXT
  427.        IF ERL = 20223 AND EC = 58 THEN _
  428.           EC = 64 : _
  429.           OK = FALSE : _
  430.           RESUME NEXT
  431.        IF ERL = 20223 AND EC = 76 THEN _
  432.           CALL LPRNT("Bad path.  File name is " + FILNAME$,1) : _
  433.           EC = 76 : _
  434.           OK = FALSE : _
  435.           RESUME NEXT
  436.        IF ERL => 20221 AND ERL <= 20223 AND EC = 70 _
  437.           AND NETWORK.TYPE = 6 THEN _
  438.              EC = 0 : _
  439.              RESUME NEXT
  440.        IF ERL => 20221 AND ERL <= 20223 THEN _
  441.           RESUME
  442. '
  443. '     FLUSHCOM ERROR HANDLING
  444. '
  445.        IF ERL = 20311 AND ERR = 57 THEN _
  446.           RESUME NEXT
  447.        IF ERL = 20311 AND ERR = 69 THEN _
  448.           ABORT = TRUE : _
  449.           SUBROUTINE.PARAMETER = -1 : _
  450.           RESUME NEXT
  451. '
  452. '     NETBIOS ERROR HANDLING
  453. '
  454.        IF ERL => 29900 AND ERL <= 29920 THEN _
  455.           RESUME NEXT
  456. '
  457. '     UPDATEC ERROR HANDLING
  458. '
  459.       IF ERL => 43050 AND ERL <= 43060 AND ERR = 61 THEN _
  460.          A$ = "* Disk full - terminating *" : _
  461.          SUBROUTINE.PARAMETER =2 : _
  462.          CALL TPUT : _
  463.          IF DISKFULL.GO.OFFLINE THEN _
  464.            GOTO 65010 _
  465.          ELSE SYSTEM
  466. '
  467. '     FINDFREE ERROR HANDLING
  468. '
  469. '
  470. '     OPENWORK ERROR HANDLING
  471. '
  472. '
  473. '      OPENFMS ERROR HANDLING
  474. '
  475. '
  476. '     OPENOUTW ERROR HANDLING
  477. '
  478. '
  479. '     KILLWORK ERROR HANDLING
  480. '
  481. '
  482. '     GETPASWD ERROR HANDLING
  483. '
  484. '
  485. '     READDIR ERROR HANDLING
  486. '
  487. '
  488. '     READSEC ERROR HANDLING
  489. '
  490. '
  491. '     READANY ERROR HANDLING
  492. '
  493. '
  494. '     PRINTWRK ERROR HANDLING
  495. '
  496. '
  497. '     GETWORK ERROR HANDLING
  498. '
  499. '
  500. '     OPENWRKA ERROR HANDLING
  501. '
  502. '
  503. '     PRNTWRKA ERROR HANDLING
  504. '
  505. '
  506. '     CHECKINT ERROR HANDLING
  507. '
  508.        IF ERL = 59652 AND ERR = 24 THEN _
  509.           NOT.CTS = TRUE : _
  510.           CALL LINE25 : _
  511.           RESUME
  512.        IF ERL => 52000 AND ERL <= 59660 THEN _
  513.           RESUME NEXT
  514. * ------[ first line different ]------
  515. '      VIEWARC  ERROR HANDLER 
  516. '
  517.  IF ERL = 60149 AND ERR = 53 THEN _
  518.          CALL QTPUT ("ERROR !!! No Such File, EXITING",1):_
  519.          RESUME NEXT
  520. IF ERL = 60149 AND ERR = 63 THEN _
  521.          CALL QTPUT ("ERROR Occured, Please notify SysOp",1):_
  522.          RESUME NEXT
  523. '
  524. '
  525. '      DLVIEW ARC TXT ERROR HANDLER 
  526. '
  527.  IF ERL = 60169 AND ERR = 53 THEN _
  528.          CALL QTPUT ("ERROR !!! No Such File, EXITING",1):_
  529.          RESUME NEXT
  530. '
  531. '     CATCH ALL OTHER ERRORS
  532. '
  533.        A$ = "RBBS-SUB1 Untrapped Error" + _
  534.             STR$(ERR) + _
  535.             " in line" + _
  536.             STR$(ERL)
  537.        CALL QTPUT (A$,1)
  538.        CALL UPDTCALR (A$,2)
  539.        RESUME NEXT
  540. '     SHARED ROUTINE FOR GOING OFF LINE WHEN DISK FULL
  541.